00100		TITLE SLAP
00200		ENTRY MOLD
00300	MOLD:	0
00400		HRRZ 1,1(16)
00500		SOJ 1,
00600		MOVE 2,1
00700		ADD 1,@0(16)
00800		HRRZ 3,3(16)
00900		SOJ 3,
01000		MOVEM 3,MOUP#
01100		ADD 3,@2(16)
01200		HRRZ 6,5(16)
01300		SOJ 6,
01400		MOVE 5,@4(16)
01500		AOJ 5,
01600		HRLZM 5,@6(16)
01700		SOJ 5,
01800		ADD 5,6
01900	ADIN:	AOJ 2,
02000		CAMLE 2,1
02100		JRST RETUR
02200		MOVE 4,MOUP
02300		SETZ 10,
02400		MOVE 11,@2
02500	SEQU:	AOJ 4,
02600		CAMLE 4,3
02700		JRST NEWR
02800		CAME 11,@4
02900		JRST SEQU
03000	TOEQ:	AOJ 10,
03100		MOVE 11,2
03200		ADD 11,10
03300		CAMLE 11,1
03400		JRST LWRD
03500		MOVE 12,4
03600		ADD 12,10
03700		CAMLE 12,3
03800		JRST ENWR
03900		MOVE 7,@11
04000		CAMN 7,@12
04100		JRST TOEQ
04200	LWRD:	SOJ 10,
04300	ICKY:	AOJ 5,
04400		SUB 4,MOUP
04500		AOJ 4,
04600		HRLZM 4,@5
04700		ADD 4,10
04800		HRRM 4,@5
04900		ADD 2,10
05000		JRST ADIN
05100	NEWR:	MOVE 7,11
05200	ENWR:	AOJ 3,
05300		MOVEM 7,@3
05400		JRST ICKY
05500	RETUR:	SUB 3,MOUP
05600		MOVEM 3,@2(16)
05700	BGIN:	HLRZ 7,@6(16)
05800		ADD 7,6
05900	NRITE:	HRRZ 10,@7
06000		AOJ 7,
06100		CAMLE 7,5
06200		JRST NFIR
06300		AOJ 10,
06400		HLRZ 11,@7
06500		CAME 10,11
06600		JRST NRITE
06700		HRRZ 11,@7
06800		SOJ 7,
06900		HRRM 11,@7
07000	AGIN:	AOJ 7,
07100		MOVE 10,7
07200		AOJ 10,
07300		MOVE 11,@10
07400		MOVEM 11,@7
07500		CAMGE 10,5
07600		JRST AGIN
07700		SOJ 5,
07800		JRST BGIN
07900	NFIR:	SUB 5,6
08000		MOVEM 5,@4(16)
08100		HRRM 5,@6(16)
08200		JRA 16,7(16)
08300		END